home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / INTERRUP.SWG / 0003_INTREXAM.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  683b  |  23 lines
  1. Okay, well, For the most part, calling an interrupt from TP is fairly
  2. simple.  I'll use Interrupt 10h (service 0) as an example:
  3.  
  4. Procedure CallInt;
  5. Var
  6.   Regs : Registers;
  7. begin
  8.   Regs.AH := 0;       { Specify service 0 }
  9.   Regs.AL := $13;     { Mode number = 13 hex, MCGA 320x200x256 }
  10.   Intr($10,Regs);     { Call the interrupt }
  11. end;
  12.  
  13. This would shift the screen to the MCGA Graphics mode specified.  Now,
  14. it's easier to call this in BAsm (built-in Assembler):
  15.  
  16. Procedure CallInt; Assembler;
  17. Asm
  18.   MOV AH,0            { Specify service 0 }
  19.   MOV AL,13h          { Mode number = 13 hex, MCGA 320x200x256 }
  20.   inT 10h             { Call the interrupt }
  21. end;
  22.  
  23.